with Interfaces.C; use Interfaces.C;
with T_Telephone; use T_Telephone;

package T_Standard is

	task type Standard is
		entry CONNECTER(exp : Telephone; dest : Telephone);
	end Standard;

	-- New_Standard en ada: appel a init annuaire


	function Standard return Integer;
	pragma import(c,Standard,"STANDARD");
	function Connexion(dest : Integer; exp : Integer) return integer;
	pragma import(c,Connexion,"CONNEXION");

end T_Standard;